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PPPPPPPP AAAAAA SSSSSSSS LL 000000 cccccccc AAAAAA TTTTTTTTTT EEEEEEEEEE 

PPPPPPPP AAAAAA SSSSSSSS_ LL 000000 ccccccce AAAAAA TTTTTTTTTT EEEEEEEEEE 

PP PP AA AA SS LL 00 oo CC AA Aa TT EE 

PP PP AA A SS ii 00 oo CC Aa AA TT EE 

PP PP AA AA SS LL 00 oo CC AS Ab TT EE 

PP PP AA AA SS LL 00 oo CC AA AA TT EE 

PPPPPPPP ial AA SSSSSS LL 00 oo CC AA AA TT EEEEEEEE 

PPPPPPPP AA AA SSSSSS LL 00 oo CC AA AA TT EEEEEEEE 

PP AAAAARAAAA SS LL 00 oo CC AAAAAAAAAA TT EE 

PP AAAAAAAAAA ss Lt 00 oo CC AAAKAAAAAA TT EE 

PP A Aa SS LL 00 oo cc AA AA TT EE cose 
PP aR AA SS LL 00 oo CC AA AA TT EE cece 
PP AA AA SSSSSSSS LLLLLLLLLL 000000 CCCCCCCC =AA AA TT EEEEEEEEEE eeee 
PP AA AA SSSSSSSS LLLLLLLLLL 000000 Cccccccc AA Aa TT EEEEEEEEEE eves 
LL IIIII1 SSSSSSSS 

LL T1111 SSSSSSSS 

LL I] SS 

LL I] S$ 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS * 
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PASSLOCATE LOCATE procedure 16- Sep-1 oft 01:43: 33 AX-11 Bliss-32 V4.0-7 Page 1. 

14-Sep-1984 12:51: PASRTL.SRCJPASLOCATE. 8 2;1 (1). 
: 1 0001 MODULE PASSLOCATE ( X&TITLE ‘LOCATE procedure’ ; 
; ¢ 404 {DENT = '1-001' ! File: PASLOCATE.B32 Edit: SBL1001 : 
gas 0004 1 BEGIN ; 
; 5 0005 1! 3 
3 : sie) \ Tap page aan patER rr Top tese oe é 
$ '® * : 
; 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 * 5 
; 9 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. # : 
3 19 pniy ' be ALL RIGHTS RESERVED. * 3 
: 7” * Ps 
: 1 ootg 1 !* THIS SOF TWARE aS FURNISHED wee A LICENSE AND MAY BE USED AND COPIED * 3 
: 1 001 1 !* ONLY IN ACCORDANCE WITH THE ro S OF SUCH LICENSE AND WITH THE * : 
° 14 0014 1 !« INCLUSION OF THE ABOVE oF cokers NOTICE. THIS SOFTWARE OR ANY OTHER * ; 
: 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ® . 
: 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 2 
; i opie : hs TRANSFERRED. * ; 
3 :* * P 
; 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 2 
; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
: $3 O0S3 : - CORPORATION. * : 
: :* * : 
; 23 0023 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR > etme OF ITS * ; 
3 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH [S NOT SUPPLIED BY DIGITAL * PY 
,; 0025 1 !« ‘ | $ 
; 2 0026 1 !* * : 
$ 27 0027 1 Seeeeereteke eee eee eee RRR AERA ETAT ETAT ATTA RETREAT RATA ; 
; a 0028 1! F 
; 0029 1 F 
; 0030 1 !++ : 
. a. 0031 1 ! FACILITY: Pascal Language Support : 
; ie 0032 1! F 
; 3 0033 1 ! ABSTRACT: : 
a; 0034 1: 3 
3 35 0035 1: This module contains PASSLOCATE, which implements the 3 
5 $$ te) ' VAX-11 Pascal LOCATE procedure. | : 
: $0 site : ENVIRONMENT: User mode - AST reentrant 3 
° j a 
5 rs | 98 : AUTHOR: Steven B. Lionel, CREATION DATE: 23-December-1981 ‘ 
ae 004g | i MODIFIED BY: : 
.. es 0043 1! 3 
3 (46 0044 1! 1-001 - Original. SBL 23-December-1981 3 
: «645 0045 1 i- 3 
; 46 0046 1 ; 
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LOCATE procedure 
Declarations 


PASSLOCATE 
1-001 


! Externals, Linkages, PSECTs, structures 
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PASSLOCATE LOCATE procedure 1b-se 1984 01:43: AX-11 Bliss-32 V4.0-74 Page 3 
1-001 PA LOCATE - LOCATE procedure 12-8 08- 1 3be 03:85:39 PASRTL’ SRESPASLOCATE 6923 1 . (3) 

80 ZSBITL ‘PASSLOCATE = LOCATE procedure’ 
81 GLOBAL ROUTINE PASSLOCATE ( ' Do a LOCATE 
Bs PFV: REF SPASSPFV_FILE venkat ' File variable 
8 COMPONENT: REF VECTOR [, LONGI, ' Component number 
84 ERROR ! Unwind address if error 
85 ): NOVALUE = 
86 
87 + 
4 FUNCTIONAL DESCRIPTION: 
90 PASSLOCATE implements the VAX-11 Pascal LOCATE procedure. It 
91 ositions the file at the specified component, and enters 
g eneration mode. 
Ge CALLING SEQUENCE: 
4 CALL PASSLOCATE (PFV.mr.r, COMPONENT. rlu.r C, ERROR.j.rJ]) 
98 FORMAL PARAMETERS: | 

PFV - The Pascal File Variable (PFV) passed 7! reference. 

The structure of the PFV is defined in PASPFV.REQ. 
COMPONENT - The number of the file component to locate. 
ERROR - Optional. If specified, the address to unwind to 
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if an error occurs. 

IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE | 
ROUTINE VALUE: | 

NONE 
SIDE EFFECTS: 

Places file in Generation mode 
SIGNALLED ERRORS: 

FILNOTOPE - File not open 
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§ FILNOTDIR - File not opened for direct access 

2 

3 -———- 

3 

; BEGIN 

3 LOCAL . 

3 FCB: REF $PAS$FCB_CONTROL_BLOCK, ' File control block 


Ww 
aw 


PFV_ADDR: VOLATILE, ! Enable argument 
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OCATE procedure 19~3e07 13% OF 83333 AX-11 Bliss-32 V4.0-74 Page 4 
ASSLOCATE = LOCATE procedure 14-Sep-1984 12:51: PASRTL.SRCJPASLOCATE .832;1 (3) 
198 UNWIND_ACT: VOLATILE, ! Enable argument 
ib 4 ERROR_ADDR: VOLATILE; ! Enable argument 
01 BUILTIN 
8 ACTUALCOUNT; 
04 ENABLE 
8? PASSS$SIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); 
07 IF ACTUALCOUNT () GEQU 3 
08 THEN 
09 ERROR_ADDR = .ERROR; ! Set unwind address 


1+ 
Set PFV address enable argument. 


PFV_ADDR = PFV CPFV$R_PFVI; 
validate and lock PFV 
PASSSVALIDATE_PFV (PFV CPFVSR_PFV]; FCB); 
set unwind action to unlock file. 
UNWIND_ACT = PASS$K_UNWIND_UNLOCK; 
open file if it should be implicitly opened. 
IF a -PFV CPFVS$V_VALIDJ 
PASSSOPEN_IMPLICIT (PFV CPFVSR_PFVJ, FCB CFCBS$R_FCBJ; FCB); 
verity that the file is open. 
7 aa -PFV CPF VS$V_OPEN) 
SPASSIO_ERROR (PAS$_FILNOTOPE,O); 
Verity that the file is opened for direct access 
If NOT .FCB CFCBSV_DIRECTI 
SPASSIO_ERROR (PAS$_FILNOTDIR,O); 


'¢ 
' Undefine file buffer 
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7 
TE Erecedure 18. -Sep-1 oR 91:33 33 AX-11 Bliss-32 V4.0-7 Page 5 
LOCATE = LOCATE procedure 14-Sep oi 984 12:5 PASRTL.SRCJPASLOCATE. is 2;1 (3) 


PFV CPFV$V_DFB) = 0; 


'¢ 
: $tore the component number in FCBSL_COMPONENT and set FCBSV_LOCATE. 
_ This will cause a subsequent PUT to write to the specified record. 


FCB CFCBSL_COMPON ei - COMPONENT (0); 
FCB CFCBSV_LOCATE 


'e 

' Set Generation mode 

i Indicate at EOF 

i Indicate successful completion 
; i mtock the file 


=PMIMIPOPINPONPYNIN PN No NoNnonononononononononofponoponony 


FCB CFCBS$V_INSPECTION] = 0; 
FCB CFCBSV~ ~GENERAT ION] = 1; 
FCB CFCBSV~EOF) = 1; 
FCB CBSE “STATUS) = 0; 
PFV CPFV$V~LOCK] = 0; 
RETURN; 
END; ' End of routine PASS$LOCATE 
TITLE PAS$LOCATE LOCATE procedure 
IDENT \1-001\ 
.EXTRN PASSLOCATE, PAS$$10 _HANDLER 
.EXTRN PASSSVALIDATE P 
~EXTRN PASSSOPEN_IMP Bricir 
-EXTRN PASS$SSIGNAL, PASS$K_F ILNOTOPE 
“EXTRN PASSK_FILNOTDIR 
.PSECT _PASSCODE,NOWRT, SHR, PIC,2 
00c4 00000 .ENTRY PASSLOCATE, Save R2,R6,R7 : 0142 
5E 08 C2 00002 SUBL2 # : 
7E b4 00005 CLRL ERROR PADDR : 0193 
04 AE 7C 00007 CLRQ = UNWIND_ACT ; 
6D 0067 CF DE OOO0A MOVAL $, (FP) : 
03 6C 91 0000F MPB (AP), #3 : 0207 
04 1F 00012 BLSSU : 
6F 0c AC DO 00014 MOVL ERROR, ERROR_ADDR : 0209 
56 046 ac 00 90018 1$ MOVL PFV, : 0215 
08 AE 56 DO 0001C MOVL R6, PFV_ADDR : | 
000000006 00 16 00020 JSB PASSSVACIDATE_PFV ; 0221 
04 AE 01 D0 99 6 MOVL #1, UNWIND_A : 0227 
06 06 Ab 8 O2A BLBS 6(R6), 2$ : 0 3 
000000006 00 16 0002E JSB PASSSOPEN_ IMPLICIT : 0 
08 07 Ab 5 £0 00034 2$: BBS (R6)> 3$ > 0241 
E D4 00039 CLRL = Weel > 0243 


———_— Fh —— 


F 7 
| PARSE OCATE LOCATE procedure 16-Sep- 13e% 1:43: 33 AX-11 0} ies -32 v4.0-74 
1-001 PASSLOCATE - LOCATE procedure 1a-Sep- 2:51: PASRTL. SRO} PASLOCATE.832;1 
| 7E 006 BF 9A 0038 MOVZBL #PASSK_FILNOTOPE, -(SP) 
: 11 0003F BRB 
53 FC OA oF 0041 3$: MOVAB shCFce 5 Re 
OE 6 91 EO 00045 BBS 
E 04 00049 CLRL =( 
re 00G 8F 9A 00048 MOVZBL PPASSK FILNOTDIR, -(SP) 
00000000G 0 02 FB QOO4F 4$: CALLS #2, PASSSSIGNAL 
ge 0056 RET 
06 A6 02 8A 00057 5$: BICB2 R6) 
D8 A? 08 BC DO 0005B MOVL Se oMBONENT, -40(F CB) 
of AS 8 eA Soee B1Bs we. TER3) 
01 A 8 8 S008 BISB2 #48, 1(R2) 
D4 =A? «D4 0006C CLRL -44 (FCB) 
07 AG 80 8F BA O006F BICB2 #128, 7(R6) 
04 00074 RET 
0000 00075 6$: WORD ave nothing 
50 08 AC 00 00077 MOVL athe: RO 
50 04 AQ pO 00078 MOVL (RO). RO 
F4 AO 9F OOO7F PUSHAB ERROR ADDR 
F8 AO 9F 4 PUSHAB UNWIND ACT 
FC AO 9F 0008 PUSHAB PFV_ADDR 
03 DD 00088 PUSHL #3 ~ 
5E DD OOO8A PUSHL SP 
7E 04 AC 7D 0008 MOVO 4(AP), -(SP) 
00000000G 00 03 FB 00090 CALLS #3, PAS$$10_ HANDLER 
04 00097 RET 


; Routine Size: 152 bytes, Routine Base: _PASS$CODE + 0000 


; #22 0283 1 
; 223 0284 1 !<BLF/PAGE> 
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Fete BRSSLECRTESS*UOEaTE procedure ifgep Bu198¢ 12:51:37 EBASRTL SRE SPASLOCATE 08251 ime 
; 5 85 1 END ! End of module PASSLOCATE 
a EG 8 pa 
PSECT SUMMARY 
Name Bytes Attributes 


PASSCODE 


Library Statistics 


Bees. ea ee eee Symbols 
3 File Total Loaded Percent 


Stitt § SYSLIBISTARLET.L32;1 9776 0 0 


$DUAZB: [PASRTL .OBJ JPASLIB.(32;1 427 91 21 


pize: 152 co 


e 
ime 5 
eeeed” Time: 00:25 
Lines/CPU Min: 3 
Lexemes/CPU-Min: 12428 
prea’! Used: 78 pages 
Compila 


0 data bytes 


tion Complete 


152 NOVEC,NOWRT, RD, EXE, SHR, 


: COMMAND QUALIFIERS 
; BLISS/CHECK= (FIELD. INITIAL OPTIMIZE) /NOTRACE/LIS=L1S$:PASLOCATE/0BJ=0BJ5 :PASLOCATE MSRC$:PASLOCATE/UPDATE=(ENH$:PASLOCATE 


LCL, REL, CON, PIC,ALIGN(2) 


Pages Processing 
Mapped Time 


581 00:01.0 
33 4 


PA 


ENT CORPORATION 
ND PROPRIETARY | 
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